home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / fco_sds.zip / SDS.PRG < prev   
Text File  |  1993-03-14  |  768b  |  42 lines
  1. #include fileio.hdr
  2. #include string.hdr
  3. #include io.hdr
  4.  
  5. PROCEDURE fco_main
  6.   PARAMETERS CONST CHAR filename
  7.   VARDEF
  8.     BYTE b[32]
  9.     UINT h, n
  10.     CHAR fname BASED b
  11.   ENDDEF
  12.  
  13.   DO key_dos
  14.   DO scrn_dos
  15.  
  16.   ? "ShowDbfStructure v1.0 (c) 1992 by Alfred Klich"
  17.   
  18.   IF .not. fb_open( h, ltrim( filename ), &B_READ )
  19.     ? "Syntax: SDS <name>.dbf"
  20.     QUIT
  21.   ENDIF
  22.  
  23.   ?
  24.   ? "Nr.  Feldname    Länge    Dez.  Feldtyp"
  25.   ? "----------------------------------------"
  26.   ?
  27.  
  28.   n = 1  
  29.   fb_read( h, b[], 32 )
  30.   DO WHILE .not. fb_eof( h )
  31.     fb_read( h, b[], 32 )
  32.     IF b[0] = 0xd
  33.       ?
  34.       EXIT
  35.     ENDIF
  36.     ? n:2, " ", fname:10, " ", b[16]:3, " ", b[17]:3, " ", chr( b[11] ):3
  37.     n = n +1
  38.   ENDDO
  39.   fb_close( h )
  40. ENDPRO
  41.           
  42.